home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / examples / dialogshel.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1991-11-29  |  5.2 KB  |  145 lines
  1. ; -*-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         dialogshel.lsp
  5. ; RCS:          $Header: dialogshel.lsp,v 1.3 91/10/05 15:25:37 mayer Exp $
  6. ; Description:  test out motif dialog shells
  7. ; Author:       Niels Mayer, HPLabs
  8. ; Created:      Sat Nov 25 01:54:12 1989
  9. ; Modified:     Thu Nov 21 20:05:38 1991
  10. ; Language:     Lisp
  11. ; Package:      N/A
  12. ; Status:       X11r5 contrib tape release
  13. ;
  14. ; WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. ; XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. ;
  17. ; Permission to use, copy, modify, distribute, and sell this software and its
  18. ; documentation for any purpose is hereby granted without fee, provided that
  19. ; the above copyright notice appear in all copies and that both that
  20. ; copyright notice and this permission notice appear in supporting
  21. ; documentation, and that the name of Hewlett-Packard and Niels Mayer not be
  22. ; used in advertising or publicity pertaining to distribution of the software
  23. ; without specific, written prior permission.  Hewlett-Packard and Niels Mayer
  24. ; makes no representations about the suitability of this software for any
  25. ; purpose.  It is provided "as is" without express or implied warranty.
  26. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  27.  
  28. ;; note use of unmapped *toplevel_widget* (winterp's main widget) as the 
  29. ;; parent to pop up dialogues from.
  30.  
  31. (let ()
  32. (setq fsb_w
  33.       (send XM_FILE_SELECTION_BOX_WIDGET_CLASS :new :managed :dialog
  34.         "file_selection_box" *toplevel_widget*
  35.         ))
  36. (setq form_w
  37.       (send XM_FORM_WIDGET_CLASS :new :managed :dialog
  38.         "form" *toplevel_widget*
  39.         ))
  40. (setq mbox_w
  41.       (send XM_MESSAGE_BOX_WIDGET_CLASS :new :managed
  42.         "message_box" *toplevel_widget*
  43.         :XMN_MESSAGE_STRING "welcome to the night train"
  44.         ))
  45. (setq md_w
  46.       (send XM_MESSAGE_BOX_WIDGET_CLASS :new :managed :message_dialog
  47.         "message_dialog" *toplevel_widget*
  48.         :XMN_MESSAGE_STRING "the show is coming...."
  49.         ))
  50. (setq ed_w
  51.       (send XM_MESSAGE_BOX_WIDGET_CLASS :new :managed :error_dialog
  52.         "error_dialog" *toplevel_widget*
  53.         :XMN_MESSAGE_STRING "snakeskin tracksuit"
  54.         ))
  55. (setq id_w
  56.       (send XM_MESSAGE_BOX_WIDGET_CLASS :new :managed :information_dialog
  57.         "information_dialog" *toplevel_widget*
  58.         :XMN_MESSAGE_STRING "high protein snack"
  59.         ))
  60. (setq qd_w
  61.       (send XM_MESSAGE_BOX_WIDGET_CLASS :new :managed :question_dialog
  62.         "question_dialog" *toplevel_widget*
  63.         :XMN_MESSAGE_STRING "get it together with the younger generation"
  64.         ))
  65. (setq wrnd_w
  66.       (send XM_MESSAGE_BOX_WIDGET_CLASS :new :managed :warning_dialog
  67.         "warning_dialog" *toplevel_widget*
  68.         :XMN_MESSAGE_STRING "beware of dub syndicate"
  69.         ))
  70. (setq wrkd_w
  71.       (send XM_MESSAGE_BOX_WIDGET_CLASS :new :managed :working_dialog
  72.         "working_dialog" *toplevel_widget*
  73.         :XMN_MESSAGE_STRING "african head charge in effect"
  74.         ))
  75. )
  76.  
  77. (let ()
  78. (send fsb_w :unmanage)
  79. (send form_w :unmanage)
  80. (send mbox_w :unmanage)
  81. (send md_w :unmanage)
  82. (send ed_w :unmanage)
  83. (send id_w :unmanage)
  84. (send qd_w :unmanage)
  85. (send wrnd_w :unmanage)
  86. (send wrkd_w :unmanage)
  87. )
  88.  
  89. (let ()
  90. (send fsb_w :manage)
  91. (send form_w :manage)
  92. (send mbox_w :manage)
  93. (send md_w :manage)
  94. (send ed_w :manage)
  95. (send id_w :manage)
  96. (send qd_w :manage)
  97. (send wrnd_w :manage)
  98. (send wrkd_w :manage)
  99. )
  100.  
  101. (let ()
  102. (send (car (send fsb_w :get_values :XMN_DEFAULT_BUTTON nil))
  103.       :set_values :XMN_FONT_LIST "6x10")
  104. ;;(send (car (send form_w :get_values :XMN_DEFAULT_BUTTON nil))
  105. ;;      :set_values :XMN_FONT_LIST "6x10")
  106. (send (car (send mbox_w :get_values :XMN_DEFAULT_BUTTON nil))
  107.       :set_values :XMN_FONT_LIST "6x10")
  108. (send (car (send md_w :get_values :XMN_DEFAULT_BUTTON nil))
  109.       :set_values :XMN_FONT_LIST "6x10")
  110. (send (car (send ed_w :get_values :XMN_DEFAULT_BUTTON nil))
  111.       :set_values :XMN_FONT_LIST "6x10")
  112. (send (car (send id_w :get_values :XMN_DEFAULT_BUTTON nil))
  113.       :set_values :XMN_FONT_LIST "6x10")
  114. (send (car (send qd_w :get_values :XMN_DEFAULT_BUTTON nil))
  115.       :set_values :XMN_FONT_LIST "6x10")
  116. (send (car (send wrnd_w :get_values :XMN_DEFAULT_BUTTON nil))
  117.       :set_values :XMN_FONT_LIST "6x10")
  118. (send (car (send wrkd_w :get_values :XMN_DEFAULT_BUTTON nil))
  119.       :set_values :XMN_FONT_LIST "6x10")
  120. )
  121.  
  122. ;; (let ()
  123. ;; (send (car (send fsb_w :get_values :XMN_DEFAULT_BUTTON nil))
  124. ;;       :set_values :XMN_FONT_LIST "micro")
  125. ;; ;;(send (car (send form_w :get_values :XMN_DEFAULT_BUTTON nil))
  126. ;; ;;      :set_values :XMN_FONT_LIST "micro")
  127. ;; (send (car (send mbox_w :get_values :XMN_DEFAULT_BUTTON nil))
  128. ;;       :set_values :XMN_FONT_LIST "micro")
  129. ;; (send (car (send md_w :get_values :XMN_DEFAULT_BUTTON nil))
  130. ;;       :set_values :XMN_FONT_LIST "micro")
  131. ;; (send (car (send ed_w :get_values :XMN_DEFAULT_BUTTON nil))
  132. ;;       :set_values :XMN_FONT_LIST "micro")
  133. ;; (send (car (send id_w :get_values :XMN_DEFAULT_BUTTON nil))
  134. ;;       :set_values :XMN_FONT_LIST "micro")
  135. ;; (send (car (send qd_w :get_values :XMN_DEFAULT_BUTTON nil))
  136. ;;       :set_values :XMN_FONT_LIST "micro")
  137. ;; (send (car (send wrnd_w :get_values :XMN_DEFAULT_BUTTON nil))
  138. ;;       :set_values :XMN_FONT_LIST "micro")
  139. ;; (send (car (send wrkd_w :get_values :XMN_DEFAULT_BUTTON nil))
  140. ;;       :set_values :XMN_FONT_LIST "micro")
  141. ;; )
  142.  
  143.  
  144.  
  145.